Sub prueba_Print()
    Dim fichero As String
    fichero = "C:\Temp\NotasPrint.txt"
    Open fichero For Output As #1
    ' Graba datos en fichero.
    Print #1, Spc(2); "Uno"; Spc(2); "Dos"; Spc(3); "Tres"
    Print #1, Tab; "Uno"; Tab; "Dos"; Tab; "Tres"
    Print #1,
    Print #1, Environ("Path")
    ' Cierra fichero.
    Close #1
End Sub
